home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.06 Jun 88 / icon source / StdPoll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-09-25  |  395 b   |  30 lines  |  [TEXT/EDIT]
  1. {$A+} { Interlinear source on compile to .asm }
  2. {$R+} { Range checking }
  3.  
  4. unit StdPoll;
  5.  
  6. INTERFACE
  7.  
  8. uses 
  9.     MacIntf;
  10.  
  11. var
  12.     Done : Boolean; { program is all done }
  13.     
  14.  
  15. procedure InitTheMac;
  16.  
  17.  
  18. IMPLEMENTATION { -------------------------------------------------------- }
  19.  
  20. procedure InitTheMac;
  21. begin 
  22.     InitGraf (@ThePort);
  23.     InitFonts;
  24.     InitWindows;
  25.     InitMenus;
  26.     TEInit;
  27.     InitDialogs (NIL) end;
  28.     
  29.  
  30. end.